getwd()
setwd("E:\Training\R for Investment\Day 01")
Error: '\T' is an unrecognized escape in character string starting ""E:\T"
data <- read.table("./data/baltimore.csv", sep = ",", header = TRUE, fill = TRUE)
head(data, n = 3)

** Writing data to a file **

list.files("./data")  #show a list of files in data foler within the working directory
[1] "baltimore.csv" "mtcars.txt"    "PTTEP_NA.csv" 
list.files("./data")  #show a list of files in data foler within the working directory
[1] "baltimore.csv" "mtcars.csv"    "mtcars.txt"    "PTTEP_NA.csv" 

** Saving Plots in R **

list.files("./data")
[1] "baltimore.csv" "mtcars.csv"    "mtcars.txt"    "PTTEP_NA.csv"  "rplot.jpg"    
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KYGBge3J9DQpnZXR3ZCgpDQpgYGANCg0KYGBge3J9DQpzZXR3ZCgiRTovVHJhaW5pbmcvUiBmb3IgSW52ZXN0bWVudC9EYXkgMDEiKQ0KYGBgDQoNCmBgYHtyfQ0KZGF0YSA8LSByZWFkLnRhYmxlKCIuL2RhdGEvYmFsdGltb3JlLmNzdiIsIHNlcCA9ICIsIiwgaGVhZGVyID0gVFJVRSwgZmlsbCA9IFRSVUUpDQpoZWFkKGRhdGEsIG4gPSAzKQ0KYGBgDQoNCg0KYGBge3J9DQpkYXRhMiA8LSByZWFkLmNzdigiLi9kYXRhL2JhbHRpbW9yZS5jc3YiKQ0KaGVhZChkYXRhMiwgbiA9IDMpDQoNCmBgYA0KDQoqKiBXcml0aW5nIGRhdGEgdG8gYSBmaWxlICoqDQoNCisgd3JpdGUgZGF0YSBmcm9tIFIgdG8gYSB0eHQgZmlsZTogd3JpdGUudGFibGUoICkNCisgd3JpdGUgZGF0YSBmcm9tIFIgdG8gYSBjc3YgZmlsZTogd3JpdGUuY3N2KCApDQpgYGB7cn0NCiNMb2FkIG10Y2FycyBkYXRhDQpkYXRhKG10Y2FycykNCiNFeHBvcnQgbXRjYXJzIGRhdGEgdG8gdGV4dCBmaWxlDQp3cml0ZS50YWJsZShtdGNhcnMsIGZpbGUgPSAiLi9kYXRhL210Y2Fycy50eHQiLCBzZXAgPSAiXHQiLCByb3cubmFtZXMgPSBUUlVFLCBjb2wubmFtZXMgPSBOQSkNCmxpc3QuZmlsZXMoIi4vZGF0YSIpICAjc2hvdyBhIGxpc3Qgb2YgZmlsZXMgaW4gZGF0YSBmb2xlciB3aXRoaW4gdGhlIHdvcmtpbmcgZGlyZWN0b3J5DQpgYGANCg0KYGBge3J9DQp3cml0ZS5jc3YobXRjYXJzLCBmaWxlID0gIi4vZGF0YS9tdGNhcnMuY3N2IikNCmxpc3QuZmlsZXMoIi4vZGF0YSIpICAjc2hvdyBhIGxpc3Qgb2YgZmlsZXMgaW4gZGF0YSBmb2xlciB3aXRoaW4gdGhlIHdvcmtpbmcgZGlyZWN0b3J5DQpgYGANCg0KKiogU2F2aW5nIFBsb3RzIGluIFIgKioNCmBgYHtyfQ0KeCA8LSAxOjEwDQp5IDwtIDIqeCArIDUNCg0KanBlZygiLi9kYXRhL3JwbG90LmpwZyIpDQpwbG90KHgsIHkpDQpkZXYub2ZmKCkNCmxpc3QuZmlsZXMoIi4vZGF0YSIpDQpgYGANCg0K